home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The School House• / Astromacronomer ••• / BASIC Runtime / BASIC Runtime.rsrc / CODE_23.txt < prev    next >
Text File  |  1986-09-30  |  32KB  |  625 lines
  1. # near model CODE resource
  2. # jump table entries: 4336-4344 (9 of them)
  3. export_542:
  4. 00000000  086F 0007 000C           bchg.b     [A7 + 0xC], 0x7
  5. export_543:
  6. 00000006  204F                     movea.l    A0, A7
  7. 00000008  48E7 3F00                movem.l    -[A7], D2,D3,D4,D5,D6,D7
  8. 0000000C  5888                     addq.l     A0, 4
  9. 0000000E  2018                     move.l     D0, [A0]+
  10. 00000010  2218                     move.l     D1, [A0]+
  11. 00000012  2418                     move.l     D2, [A0]+
  12. 00000014  2618                     move.l     D3, [A0]+
  13. 00000016  2C00                     move.l     D6, D0
  14. 00000018  2E02                     move.l     D7, D2
  15. 0000001A  0886 001F                bclr.b     D6, 0x1F
  16. 0000001E  0887 001F                bclr.b     D7, 0x1F
  17. 00000022  BC87                     cmp.l      D6, D7
  18. 00000024  620C                     bhi        +0xE /* 00000032 */
  19. 00000026  6504                     bcs        +0x6 /* 0000002C */
  20. 00000028  B283                     cmp.l      D1, D3
  21. 0000002A  6406                     bcc        +0x8 /* 00000032 */
  22. label0000002C:
  23. 0000002C  CD47                     exg        D6, D7
  24. 0000002E  C741                     exg        D3, D1
  25. 00000030  C142                     exg        D0, D2
  26. label00000032:
  27. 00000032  2807                     move.l     D4, D7
  28. 00000034  4844                     swap.w     D4
  29. 00000036  0244 7FF0                andi.w     D4, 0x7FF0
  30. 0000003A  6700 0130                beq        +0x132 /* 0000016C */
  31. 0000003E  2A06                     move.l     D5, D6
  32. 00000040  4845                     swap.w     D5
  33. 00000042  9A44                     sub.w      D5, D4
  34. 00000044  0286 000F FFFF           andi.l     D6, 0xFFFFF
  35. 0000004A  0287 000F FFFF           andi.l     D7, 0xFFFFF
  36. 00000050  08C6 0014                bset.b     D6, 0x14
  37. 00000054  08C7 0014                bset.b     D7, 0x14
  38. 00000058  7800                     moveq.l    D4, 0x00
  39. 0000005A  2042                     movea.l    A0, D2
  40. 0000005C  2246                     movea.l    A1, D6
  41. 0000005E  E84D                     lsr        D5.w, 4
  42. 00000060  3C05                     move.w     D6, D5
  43. 00000062  0C45 0037                cmpi.w     D5, 0x37 /* '7' */
  44. 00000066  6400 0104                bcc        +0x106 /* 0000016C */
  45. 0000006A  0245 001F                andi.w     D5, 0x1F
  46. 0000006E  671A                     beq        +0x1C /* 0000008A */
  47. 00000070  7401                     moveq.l    D2, 0x01
  48. 00000072  EABA                     ror        D2, D5
  49. 00000074  EABF                     ror        D7, D5
  50. 00000076  EABB                     ror        D3, D5
  51. 00000078  5382                     subq.l     D2, 1
  52. 0000007A  2802                     move.l     D4, D2
  53. 0000007C  4684                     not.l      D4
  54. 0000007E  2A04                     move.l     D5, D4
  55. 00000080  C883                     and.l      D4, D3
  56. 00000082  C682                     and.l      D3, D2
  57. 00000084  CA87                     and.l      D5, D7
  58. 00000086  8685                     or.l       D3, D5
  59. 00000088  CE82                     and.l      D7, D2
  60. label0000008A:
  61. 0000008A  7A00                     moveq.l    D5, 0x00
  62. 0000008C  0C46 0020                cmpi.w     D6, 0x20 /* ' ' */
  63. 00000090  6506                     bcs        +0x8 /* 00000098 */
  64. 00000092  CF43                     exg        D7, D3
  65. 00000094  CF44                     exg        D7, D4
  66. 00000096  CF45                     exg        D7, D5
  67. label00000098:
  68. 00000098  2408                     move.l     D2, A0
  69. 0000009A  2C09                     move.l     D6, A1
  70. 0000009C  B182                     xor.l      D2, D0
  71. 0000009E  4840                     swap.w     D0
  72. 000000A0  3400                     move.w     D2, D0
  73. 000000A2  4840                     swap.w     D0
  74. 000000A4  3002                     move.w     D0, D2
  75. 000000A6  0240 7FF0                andi.w     D0, 0x7FF0
  76. 000000AA  E38A                     lsl        D2, 1
  77. 000000AC  6506                     bcs        +0x8 /* 000000B4 */
  78. 000000AE  D283                     add.l      D1, D3
  79. 000000B0  DD87                     addx.l     D6, D7
  80. 000000B2  6032                     bra        +0x34 /* 000000E6 */
  81. label000000B4:
  82. 000000B4  4485                     neg.l      D5
  83. 000000B6  4084                     negx.l     D4
  84. 000000B8  9383                     subx.l     D1, D3
  85. 000000BA  9D87                     subx.l     D6, D7
  86. label000000BC:
  87. 000000BC  2606                     move.l     D3, D6
  88. 000000BE  8681                     or.l       D3, D1
  89. 000000C0  8684                     or.l       D3, D4
  90. 000000C2  6700 00AE                beq        +0xB0 /* 00000172 */
  91. label000000C6:
  92. 000000C6  2606                     move.l     D3, D6
  93. 000000C8  0283 FFFF FFE0           andi.l     D3, 0xFFFFFFE0
  94. 000000CE  6616                     bne        +0x18 /* 000000E6 */
  95. 000000D0  0440 0100                subi.w     D0, 0x100
  96. 000000D4  4845                     swap.w     D5
  97. 000000D6  4844                     swap.w     D4
  98. 000000D8  4841                     swap.w     D1
  99. 000000DA  4846                     swap.w     D6
  100. 000000DC  3C01                     move.w     D6, D1
  101. 000000DE  3204                     move.w     D1, D4
  102. 000000E0  3805                     move.w     D4, D5
  103. 000000E2  4245                     clr.w      D5
  104. 000000E4  60E0                     bra        -0x1E /* 000000C6 */
  105. label000000E6:
  106. 000000E6  2606                     move.l     D3, D6
  107. 000000E8  4843                     swap.w     D3
  108. 000000EA  0243 FFE0                andi.w     D3, 0xFFE0
  109. 000000EE  6614                     bne        +0x16 /* 00000104 */
  110. label000000F0:
  111. 000000F0  0886 0014                bclr.b     D6, 0x14
  112. 000000F4  6628                     bne        +0x2A /* 0000011E */
  113. 000000F6  0440 0010                subi.w     D0, 0x10
  114. 000000FA  E38D                     lsl        D5, 1
  115. 000000FC  E394                     roxl       D4, 1
  116. 000000FE  E391                     roxl       D1, 1
  117. 00000100  E396                     roxl       D6, 1
  118. 00000102  60EC                     bra        -0x12 /* 000000F0 */
  119. label00000104:
  120. 00000104  0640 0010                addi.w     D0, 0x10
  121. 00000108  E28E                     lsr        D6, 1
  122. 0000010A  E291                     roxr       D1, 1
  123. 0000010C  E294                     roxr       D4, 1
  124. 0000010E  E295                     roxr       D5, 1
  125. 00000110  2606                     move.l     D3, D6
  126. 00000112  4843                     swap.w     D3
  127. 00000114  0243 FFE0                andi.w     D3, 0xFFE0
  128. 00000118  66EA                     bne        -0x14 /* 00000104 */
  129. 0000011A  0886 0014                bclr.b     D6, 0x14
  130. label0000011E:
  131. 0000011E  3400                     move.w     D2, D0
  132. 00000120  0242 FFF0                andi.w     D2, 0xFFF0
  133. 00000124  4842                     swap.w     D2
  134. 00000126  4242                     clr.w      D2
  135. 00000128  8082                     or.l       D0, D2
  136. 0000012A  8486                     or.l       D2, D6
  137. 0000012C  8845                     or.w       D4, D5
  138. 0000012E  4845                     swap.w     D5
  139. 00000130  8845                     or.w       D4, D5
  140. 00000132  3A01                     move.w     D5, D1
  141. 00000134  0245 0001                andi.w     D5, 0x1
  142. 00000138  8845                     or.w       D4, D5
  143. 0000013A  7A00                     moveq.l    D5, 0x00
  144. 0000013C  0684 7FFF FFFF           addi.l     D4, 0x7FFFFFFF
  145. 00000142  D385                     addx.l     D1, D5
  146. 00000144  D585                     addx.l     D2, D5
  147. 00000146  6A0C                     bpl        +0xE /* 00000154 */
  148. 00000148  E38A                     lsl        D2, 1
  149. 0000014A  6B26                     bmi        +0x28 /* 00000172 */
  150. label0000014C:
  151. 0000014C  4CDF 00FC                movem.l    D2,D3,D4,D5,D6,D7, [A7]+
  152. 00000150  4EED 0122                jmp        [A5 + 0x122 /* export_32 */]
  153. label00000154:
  154. 00000154  2602                     move.l     D3, D2
  155. 00000156  4843                     swap.w     D3
  156. 00000158  0243 FFF0                andi.w     D3, 0xFFF0
  157. 0000015C  6714                     beq        +0x16 /* 00000172 */
  158. 0000015E  0A43 7FF0                xori.w     D3, 0x7FF0
  159. 00000162  67E8                     beq        -0x16 /* 0000014C */
  160. 00000164  0280 8000 0000           andi.l     D0, 0x80000000
  161. 0000016A  8082                     or.l       D0, D2
  162. label0000016C:
  163. 0000016C  4CDF 00FC                movem.l    D2,D3,D4,D5,D6,D7, [A7]+
  164. 00000170  4E75                     rts
  165. label00000172:
  166. 00000172  7000                     moveq.l    D0, 0x00
  167. 00000174  7200                     moveq.l    D1, 0x00
  168. 00000176  60F4                     bra        -0xA /* 0000016C */
  169. export_544:
  170. 00000178  204F                     movea.l    A0, A7
  171. 0000017A  48E7 3F00                movem.l    -[A7], D2,D3,D4,D5,D6,D7
  172. 0000017E  5888                     addq.l     A0, 4
  173. 00000180  2018                     move.l     D0, [A0]+
  174. 00000182  2218                     move.l     D1, [A0]+
  175. 00000184  2418                     move.l     D2, [A0]+
  176. 00000186  2618                     move.l     D3, [A0]+
  177. 00000188  2800                     move.l     D4, D0
  178. 0000018A  B584                     xor.l      D4, D2
  179. 0000018C  4840                     swap.w     D0
  180. 0000018E  3C00                     move.w     D6, D0
  181. 00000190  0246 7FF0                andi.w     D6, 0x7FF0
  182. 00000194  67DC                     beq        -0x22 /* 00000172 */
  183. 00000196  4842                     swap.w     D2
  184. 00000198  3E02                     move.w     D7, D2
  185. 0000019A  0247 7FF0                andi.w     D7, 0x7FF0
  186. 0000019E  67D2                     beq        -0x2C /* 00000172 */
  187. 000001A0  DC47                     add.w      D6, D7
  188. 000001A2  0446 3FE0                subi.w     D6, 0x3FE0
  189. 000001A6  3806                     move.w     D4, D6
  190. 000001A8  2F04                     move.l     -[A7], D4
  191. 000001AA  0240 000F                andi.w     D0, 0xF
  192. 000001AE  0242 000F                andi.w     D2, 0xF
  193. 000001B2  0040 0010                ori.w      D0, 0x10
  194. 000001B6  0042 0010                ori.w      D2, 0x10
  195. 000001BA  4840                     swap.w     D0
  196. 000001BC  EA9A                     ror        D2, 5
  197. 000001BE  4843                     swap.w     D3
  198. 000001C0  EA9B                     ror        D3, 5
  199. 000001C2  383C 07FF                move.w     D4, 0x7FF
  200. 000001C6  C843                     and.w      D4, D3
  201. 000001C8  8444                     or.w       D2, D4
  202. 000001CA  0243 F800                andi.w     D3, 0xF800
  203. 000001CE  48E7 0038                movem.l    -[A7], A2,A3,A4
  204. 000001D2  3E03                     move.w     D7, D3
  205. 000001D4  CEC1                     mulu.w     D7, D1
  206. 000001D6  3C03                     move.w     D6, D3
  207. 000001D8  CCC0                     mulu.w     D6, D0
  208. 000001DA  3801                     move.w     D4, D1
  209. 000001DC  C8C2                     mulu.w     D4, D2
  210. 000001DE  3A00                     move.w     D5, D0
  211. 000001E0  CAC2                     mulu.w     D5, D2
  212. 000001E2  DC84                     add.l      D6, D4
  213. 000001E4  7800                     moveq.l    D4, 0x00
  214. 000001E6  DB84                     addx.l     D5, D4
  215. 000001E8  2445                     movea.l    A2, D5
  216. 000001EA  2646                     movea.l    A3, D6
  217. 000001EC  2847                     movea.l    A4, D7
  218. 000001EE  4840                     swap.w     D0
  219. 000001F0  4841                     swap.w     D1
  220. 000001F2  4842                     swap.w     D2
  221. 000001F4  4843                     swap.w     D3
  222. 000001F6  3E03                     move.w     D7, D3
  223. 000001F8  CEC1                     mulu.w     D7, D1
  224. 000001FA  3C03                     move.w     D6, D3
  225. 000001FC  CCC0                     mulu.w     D6, D0
  226. 000001FE  3801                     move.w     D4, D1
  227. 00000200  C8C2                     mulu.w     D4, D2
  228. 00000202  3A00                     move.w     D5, D0
  229. 00000204  CAC2                     mulu.w     D5, D2
  230. 00000206  DC84                     add.l      D6, D4
  231. 00000208  7800                     moveq.l    D4, 0x00
  232. 0000020A  DB84                     addx.l     D5, D4
  233. 0000020C  2042                     movea.l    A0, D2
  234. 0000020E  2243                     movea.l    A1, D3
  235. 00000210  240A                     move.l     D2, A2
  236. 00000212  260B                     move.l     D3, A3
  237. 00000214  DE83                     add.l      D7, D3
  238. 00000216  DD82                     addx.l     D6, D2
  239. 00000218  DB84                     addx.l     D5, D4
  240. 0000021A  2408                     move.l     D2, A0
  241. 0000021C  2609                     move.l     D3, A1
  242. 0000021E  2245                     movea.l    A1, D5
  243. 00000220  2446                     movea.l    A2, D6
  244. 00000222  2647                     movea.l    A3, D7
  245. 00000224  4842                     swap.w     D2
  246. 00000226  4843                     swap.w     D3
  247. 00000228  3A03                     move.w     D5, D3
  248. 0000022A  CAC1                     mulu.w     D5, D1
  249. 0000022C  3803                     move.w     D4, D3
  250. 0000022E  C8C0                     mulu.w     D4, D0
  251. 00000230  3C02                     move.w     D6, D2
  252. 00000232  CCC1                     mulu.w     D6, D1
  253. 00000234  3E02                     move.w     D7, D2
  254. 00000236  CEC0                     mulu.w     D7, D0
  255. 00000238  D886                     add.l      D4, D6
  256. 0000023A  7C00                     moveq.l    D6, 0x00
  257. 0000023C  DF86                     addx.l     D7, D6
  258. 0000023E  4840                     swap.w     D0
  259. 00000240  4841                     swap.w     D1
  260. 00000242  4842                     swap.w     D2
  261. 00000244  4843                     swap.w     D3
  262. 00000246  3C03                     move.w     D6, D3
  263. 00000248  CCC1                     mulu.w     D6, D1
  264. 0000024A  C6C0                     mulu.w     D3, D0
  265. 0000024C  C0C2                     mulu.w     D0, D2
  266. 0000024E  DA86                     add.l      D5, D6
  267. 00000250  D983                     addx.l     D4, D3
  268. 00000252  DF80                     addx.l     D7, D0
  269. 00000254  2C09                     move.l     D6, A1
  270. 00000256  4846                     swap.w     D6
  271. 00000258  4283                     clr.l      D3
  272. 0000025A  DD43                     addx.w     D6, D3
  273. 0000025C  C4C1                     mulu.w     D2, D1
  274. 0000025E  D882                     add.l      D4, D2
  275. 00000260  DF83                     addx.l     D7, D3
  276. 00000262  DD43                     addx.w     D6, D3
  277. 00000264  4846                     swap.w     D6
  278. 00000266  4847                     swap.w     D7
  279. 00000268  4844                     swap.w     D4
  280. 0000026A  4845                     swap.w     D5
  281. 0000026C  3607                     move.w     D3, D7
  282. 0000026E  3E04                     move.w     D7, D4
  283. 00000270  3805                     move.w     D4, D5
  284. 00000272  4245                     clr.w      D5
  285. 00000274  200C                     move.l     D0, A4
  286. 00000276  DA80                     add.l      D5, D0
  287. 00000278  200B                     move.l     D0, A3
  288. 0000027A  D980                     addx.l     D4, D0
  289. 0000027C  220A                     move.l     D1, A2
  290. 0000027E  D387                     addx.l     D1, D7
  291. 00000280  DD83                     addx.l     D6, D3
  292. 00000282  4CDF 1C00                movem.l    A2,A3,A4, [A7]+
  293. 00000286  201F                     move.l     D0, [A7]+
  294. 00000288  6000 FE66                bra        -0x198 /* 000000F0 */
  295. export_545:
  296. 0000028C  204F                     movea.l    A0, A7
  297. 0000028E  48E7 3F00                movem.l    -[A7], D2,D3,D4,D5,D6,D7
  298. 00000292  5888                     addq.l     A0, 4
  299. 00000294  2818                     move.l     D4, [A0]+
  300. 00000296  2A18                     move.l     D5, [A0]+
  301. 00000298  2418                     move.l     D2, [A0]+
  302. 0000029A  2618                     move.l     D3, [A0]+
  303. 0000029C  2004                     move.l     D0, D4
  304. 0000029E  B580                     xor.l      D0, D2
  305. 000002A0  4842                     swap.w     D2
  306. 000002A2  3E02                     move.w     D7, D2
  307. 000002A4  0247 7FF0                andi.w     D7, 0x7FF0
  308. 000002A8  6778                     beq        +0x7A /* 00000322 */
  309. 000002AA  4844                     swap.w     D4
  310. 000002AC  3C04                     move.w     D6, D4
  311. 000002AE  0246 7FF0                andi.w     D6, 0x7FF0
  312. 000002B2  6700 FEBE                beq        -0x140 /* 00000172 */
  313. 000002B6  9C47                     sub.w      D6, D7
  314. 000002B8  0646 3FC0                addi.w     D6, 0x3FC0
  315. 000002BC  3006                     move.w     D0, D6
  316. 000002BE  2F00                     move.l     -[A7], D0
  317. 000002C0  0244 000F                andi.w     D4, 0xF
  318. 000002C4  0242 000F                andi.w     D2, 0xF
  319. 000002C8  0044 0010                ori.w      D4, 0x10
  320. 000002CC  0042 0010                ori.w      D2, 0x10
  321. 000002D0  4844                     swap.w     D4
  322. 000002D2  EA9A                     ror        D2, 5
  323. 000002D4  4843                     swap.w     D3
  324. 000002D6  EA9B                     ror        D3, 5
  325. 000002D8  323C 07FF                move.w     D1, 0x7FF
  326. 000002DC  C243                     and.w      D1, D3
  327. 000002DE  8441                     or.w       D2, D1
  328. 000002E0  0243 F800                andi.w     D3, 0xF800
  329. 000002E4  E38D                     lsl        D5, 1
  330. 000002E6  E394                     roxl       D4, 1
  331. 000002E8  E38D                     lsl        D5, 1
  332. 000002EA  E394                     roxl       D4, 1
  333. 000002EC  2C02                     move.l     D6, D2
  334. 000002EE  2E03                     move.l     D7, D3
  335. 000002F0  E28E                     lsr        D6, 1
  336. 000002F2  E297                     roxr       D7, 1
  337. 000002F4  48E7 0030                movem.l    -[A7], A2,A3
  338. 000002F8  2446                     movea.l    A2, D6
  339. 000002FA  2647                     movea.l    A3, D7
  340. 000002FC  6128                     bsr        +0x2A /* 00000326 */
  341. 000002FE  3041                     movea.w    A0, D1
  342. 00000300  6124                     bsr        +0x26 /* 00000326 */
  343. 00000302  4841                     swap.w     D1
  344. 00000304  3208                     move.w     D1, A0
  345. 00000306  4841                     swap.w     D1
  346. 00000308  2041                     movea.l    A0, D1
  347. 0000030A  611A                     bsr        +0x1C /* 00000326 */
  348. 0000030C  3241                     movea.w    A1, D1
  349. 0000030E  6116                     bsr        +0x18 /* 00000326 */
  350. 00000310  4841                     swap.w     D1
  351. 00000312  3209                     move.w     D1, A1
  352. 00000314  4841                     swap.w     D1
  353. 00000316  2C08                     move.l     D6, A0
  354. 00000318  4CDF 0C00                movem.l    A2,A3, [A7]+
  355. 0000031C  201F                     move.l     D0, [A7]+
  356. 0000031E  6000 FDC6                bra        -0x238 /* 000000E6 */
  357. label00000322:
  358. 00000322  4EED 014A                jmp        [A5 + 0x14A /* export_37 */]
  359. fn00000326:
  360. 00000326  4241                     clr.w      D1
  361. 00000328  B88A                     cmp.l      D4, A2
  362. 0000032A  6510                     bcs        +0x12 /* 0000033C */
  363. 0000032C  6204                     bhi        +0x6 /* 00000332 */
  364. 0000032E  BA8B                     cmp.l      D5, A3
  365. 00000330  650A                     bcs        +0xC /* 0000033C */
  366. label00000332:
  367. 00000332  0041 8000                ori.w      D1, 0x8000
  368. 00000336  9A8B                     sub.l      D5, A3
  369. 00000338  2E0A                     move.l     D7, A2
  370. 0000033A  9987                     subx.l     D4, D7
  371. label0000033C:
  372. 0000033C  4842                     swap.w     D2
  373. 0000033E  88C2                     divu.w     D4, D2
  374. 00000340  4842                     swap.w     D2
  375. 00000342  D244                     add.w      D1, D4
  376. 00000344  3004                     move.w     D0, D4
  377. 00000346  3C04                     move.w     D6, D4
  378. 00000348  3E04                     move.w     D7, D4
  379. 0000034A  CCC2                     mulu.w     D6, D2
  380. 0000034C  CEC3                     mulu.w     D7, D3
  381. 0000034E  4843                     swap.w     D3
  382. 00000350  C0C3                     mulu.w     D0, D3
  383. 00000352  4843                     swap.w     D3
  384. 00000354  4847                     swap.w     D7
  385. 00000356  DE40                     add.w      D7, D0
  386. 00000358  4847                     swap.w     D7
  387. 0000035A  4240                     clr.w      D0
  388. 0000035C  4840                     swap.w     D0
  389. 0000035E  DD80                     addx.l     D6, D0
  390. 00000360  4845                     swap.w     D5
  391. 00000362  3805                     move.w     D4, D5
  392. 00000364  4245                     clr.w      D5
  393. 00000366  9A87                     sub.l      D5, D7
  394. 00000368  9986                     subx.l     D4, D6
  395. 0000036A  6406                     bcc        +0x8 /* 00000372 */
  396. 0000036C  5341                     subq.w     D1, 1
  397. 0000036E  DA83                     add.l      D5, D3
  398. 00000370  D982                     addx.l     D4, D2
  399. label00000372:
  400. 00000372  4E75                     rts
  401. export_546:
  402. 00000374  48E7 F800                movem.l    -[A7], D0,D1,D2,D3,D4
  403. 00000378  222F 0018                move.l     D1, [A7 + 0x18]
  404. 0000037C  242F 001C                move.l     D2, [A7 + 0x1C]
  405. 00000380  262F 0020                move.l     D3, [A7 + 0x20]
  406. 00000384  282F 0024                move.l     D4, [A7 + 0x24]
  407. 00000388  2001                     move.l     D0, D1
  408. 0000038A  4840                     swap.w     D0
  409. 0000038C  0240 7FF0                andi.w     D0, 0x7FF0
  410. 00000390  6604                     bne        +0x6 /* 00000396 */
  411. 00000392  4281                     clr.l      D1
  412. 00000394  4282                     clr.l      D2
  413. label00000396:
  414. 00000396  2003                     move.l     D0, D3
  415. 00000398  4840                     swap.w     D0
  416. 0000039A  0240 7FF0                andi.w     D0, 0x7FF0
  417. 0000039E  6604                     bne        +0x6 /* 000003A4 */
  418. 000003A0  4283                     clr.l      D3
  419. 000003A2  4284                     clr.l      D4
  420. label000003A4:
  421. 000003A4  0841 001F                bchg.b     D1, 0x1F
  422. 000003A8  0843 001F                bchg.b     D3, 0x1F
  423. 000003AC  2001                     move.l     D0, D1
  424. 000003AE  8083                     or.l       D0, D3
  425. 000003B0  0800 001F                btst.b     D0, 0x1F
  426. 000003B4  6604                     bne        +0x6 /* 000003BA */
  427. 000003B6  C343                     exg        D1, D3
  428. 000003B8  C544                     exg        D2, D4
  429. label000003BA:
  430. 000003BA  B283                     cmp.l      D1, D3
  431. 000003BC  6602                     bne        +0x4 /* 000003C0 */
  432. 000003BE  B484                     cmp.l      D2, D4
  433. label000003C0:
  434. 000003C0  55C0                     scs        D0
  435. 000003C2  52C1                     shi        D1
  436. 000003C4  E349                     lsl        D1.w, 1
  437. 000003C6  8041                     or.w       D0, D1
  438. 000003C8  0240 0003                andi.w     D0, 0x3
  439. 000003CC  E258                     ror        D0.w, 1
  440. 000003CE  4CDF 001F                movem.l    D0,D1,D2,D3,D4, [A7]+
  441. 000003D2  4E75                     rts
  442. 000003D4  202F 0004                move.l     D0, [A7 + 0x4]
  443. 000003D8  222F 0008                move.l     D1, [A7 + 0x8]
  444. 000003DC  0840 001F                bchg.b     D0, 0x1F
  445. 000003E0  4E75                     rts
  446. export_547:
  447. 000003E2  48E7 3F00                movem.l    -[A7], D2,D3,D4,D5,D6,D7
  448. 000003E6  4280                     clr.l      D0
  449. 000003E8  4286                     clr.l      D6
  450. 000003EA  4284                     clr.l      D4
  451. 000003EC  4285                     clr.l      D5
  452. 000003EE  222F 001C                move.l     D1, [A7 + 0x1C]
  453. 000003F2  6A06                     bpl        +0x8 /* 000003FA */
  454. 000003F4  4481                     neg.l      D1
  455. 000003F6  08C0 001F                bset.b     D0, 0x1F
  456. label000003FA:
  457. 000003FA  303C 4330                move.w     D0, 0x4330 /* 'C0' */
  458. 000003FE  6000 FCBC                bra        -0x342 /* 000000BC */
  459. export_548:
  460. 00000402  48E7 3E00                movem.l    -[A7], D2,D3,D4,D5,D6
  461. 00000406  242F 0018                move.l     D2, [A7 + 0x18]
  462. 0000040A  262F 001C                move.l     D3, [A7 + 0x1C]
  463. 0000040E  2202                     move.l     D1, D2
  464. 00000410  4842                     swap.w     D2
  465. 00000412  3202                     move.w     D1, D2
  466. 00000414  0242 000F                andi.w     D2, 0xF
  467. 00000418  0042 0010                ori.w      D2, 0x10
  468. 0000041C  0241 7FF0                andi.w     D1, 0x7FF0
  469. 00000420  E849                     lsr        D1.w, 4
  470. 00000422  0441 03F3                subi.w     D1, 0x3F3
  471. 00000426  6A02                     bpl        +0x4 /* 0000042A */
  472. 00000428  4241                     clr.w      D1
  473. label0000042A:
  474. 0000042A  4842                     swap.w     D2
  475. 0000042C  0C41 002C                cmpi.w     D1, 0x2C /* ',' */
  476. 00000430  650A                     bcs        +0xC /* 0000043C */
  477. label00000432:
  478. 00000432  2001                     move.l     D0, D1
  479. 00000434  4CDF 007C                movem.l    D2,D3,D4,D5,D6, [A7]+
  480. 00000438  4EED 0132                jmp        [A5 + 0x132 /* export_34 */]
  481. label0000043C:
  482. 0000043C  4280                     clr.l      D0
  483. 0000043E  3C01                     move.w     D6, D1
  484. 00000440  0246 001F                andi.w     D6, 0x1F
  485. 00000444  671A                     beq        +0x1C /* 00000460 */
  486. 00000446  7801                     moveq.l    D4, 0x01
  487. 00000448  EDBC                     rol        D4, D6
  488. 0000044A  EDBA                     rol        D2, D6
  489. 0000044C  EDBB                     rol        D3, D6
  490. 0000044E  5384                     subq.l     D4, 1
  491. 00000450  2004                     move.l     D0, D4
  492. 00000452  2A04                     move.l     D5, D4
  493. 00000454  C082                     and.l      D0, D2
  494. 00000456  CA83                     and.l      D5, D3
  495. 00000458  4684                     not.l      D4
  496. 0000045A  C484                     and.l      D2, D4
  497. 0000045C  C684                     and.l      D3, D4
  498. 0000045E  8485                     or.l       D2, D5
  499. label00000460:
  500. 00000460  0C41 0020                cmpi.w     D1, 0x20 /* ' ' */
  501. 00000464  6504                     bcs        +0x6 /* 0000046A */
  502. 00000466  C143                     exg        D0, D3
  503. 00000468  C142                     exg        D0, D2
  504. label0000046A:
  505. 0000046A  8443                     or.w       D2, D3
  506. 0000046C  4843                     swap.w     D3
  507. 0000046E  8443                     or.w       D2, D3
  508. 00000470  3C00                     move.w     D6, D0
  509. 00000472  0246 0001                andi.w     D6, 0x1
  510. 00000476  8446                     or.w       D2, D6
  511. 00000478  4286                     clr.l      D6
  512. 0000047A  0682 7FFF FFFF           addi.l     D2, 0x7FFFFFFF
  513. 00000480  D186                     addx.l     D0, D6
  514. 00000482  65AE                     bcs        -0x50 /* 00000432 */
  515. 00000484  4A80                     tst.l      D0
  516. 00000486  6712                     beq        +0x14 /* 0000049A */
  517. 00000488  0801 001F                btst.b     D1, 0x1F
  518. 0000048C  670C                     beq        +0xE /* 0000049A */
  519. 0000048E  4480                     neg.l      D0
  520. 00000490  0C80 8000 0000           cmpi.l     D0, 0x80000000
  521. 00000496  659A                     bcs        -0x64 /* 00000432 */
  522. 00000498  6002                     bra        +0x4 /* 0000049C */
  523. label0000049A:
  524. 0000049A  6B96                     bmi        -0x68 /* 00000432 */
  525. label0000049C:
  526. 0000049C  4CDF 007C                movem.l    D2,D3,D4,D5,D6, [A7]+
  527. 000004A0  4E75                     rts
  528. export_549:
  529. 000004A2  48E7 3F00                movem.l    -[A7], D2,D3,D4,D5,D6,D7
  530. 000004A6  6170                     bsr        +0x72 /* 00000518 */
  531. 000004A8  2C04                     move.l     D6, D4
  532. 000004AA  2E05                     move.l     D7, D5
  533. 000004AC  E284                     asr        D4, 1
  534. 000004AE  E295                     roxr       D5, 1
  535. 000004B0  B986                     xor.l      D6, D4
  536. 000004B2  BB87                     xor.l      D7, D5
  537. 000004B4  0880 0015                bclr.b     D0, 0x15
  538. 000004B8  CC80                     and.l      D6, D0
  539. 000004BA  CE81                     and.l      D7, D1
  540. 000004BC  08C0 0015                bset.b     D0, 0x15
  541. 000004C0  E28E                     lsr        D6, 1
  542. 000004C2  E297                     roxr       D7, 1
  543. 000004C4  E28E                     lsr        D6, 1
  544. 000004C6  E297                     roxr       D7, 1
  545. 000004C8  8086                     or.l       D0, D6
  546. 000004CA  8287                     or.l       D1, D7
  547. 000004CC  2C04                     move.l     D6, D4
  548. 000004CE  2E05                     move.l     D7, D5
  549. 000004D0  E28E                     lsr        D6, 1
  550. 000004D2  E297                     roxr       D7, 1
  551. 000004D4  D287                     add.l      D1, D7
  552. 000004D6  D186                     addx.l     D0, D6
  553. 000004D8  6502                     bcs        +0x4 /* 000004DC */
  554. 000004DA  4842                     swap.w     D2
  555. label000004DC:
  556. 000004DC  4684                     not.l      D4
  557. 000004DE  4685                     not.l      D5
  558. 000004E0  C084                     and.l      D0, D4
  559. 000004E2  C285                     and.l      D1, D5
  560. 000004E4  0280 000F FFFF           andi.l     D0, 0xFFFFF
  561. 000004EA  4242                     clr.w      D2
  562. 000004EC  8082                     or.l       D0, D2
  563. 000004EE  4CDF 00FC                movem.l    D2,D3,D4,D5,D6,D7, [A7]+
  564. 000004F2  4E75                     rts
  565. export_550:
  566. 000004F4  48E7 3F00                movem.l    -[A7], D2,D3,D4,D5,D6,D7
  567. 000004F8  611E                     bsr        +0x20 /* 00000518 */
  568. 000004FA  4684                     not.l      D4
  569. 000004FC  4685                     not.l      D5
  570. 000004FE  E284                     asr        D4, 1
  571. 00000500  E295                     roxr       D5, 1
  572. 00000502  C084                     and.l      D0, D4
  573. 00000504  C285                     and.l      D1, D5
  574. 00000506  4842                     swap.w     D2
  575. 00000508  0280 000F FFFF           andi.l     D0, 0xFFFFF
  576. 0000050E  4242                     clr.w      D2
  577. 00000510  8082                     or.l       D0, D2
  578. 00000512  4CDF 00FC                movem.l    D2,D3,D4,D5,D6,D7, [A7]+
  579. 00000516  4E75                     rts
  580. fn00000518:
  581. 00000518  202F 0020                move.l     D0, [A7 + 0x20]
  582. 0000051C  222F 0024                move.l     D1, [A7 + 0x24]
  583. 00000520  4840                     swap.w     D0
  584. 00000522  3400                     move.w     D2, D0
  585. 00000524  0642 0010                addi.w     D2, 0x10
  586. 00000528  4842                     swap.w     D2
  587. 0000052A  3400                     move.w     D2, D0
  588. 0000052C  0282 FFF0 FFF0           andi.l     D2, 0xFFF0FFF0
  589. 00000532  0040 FFF0                ori.w      D0, 0xFFF0
  590. 00000536  4840                     swap.w     D0
  591. 00000538  3602                     move.w     D3, D2
  592. 0000053A  0243 7FFF                andi.w     D3, 0x7FFF
  593. 0000053E  E84B                     lsr        D3.w, 4
  594. 00000540  0443 03F5                subi.w     D3, 0x3F5
  595. 00000544  0C43 0009                cmpi.w     D3, 0x9 /* '\t' */
  596. 00000548  6C08                     bge        +0xA /* 00000552 */
  597. 0000054A  7609                     moveq.l    D3, 0x09
  598. 0000054C  0282 8000 8000           andi.l     D2, 0x80008000
  599. label00000552:
  600. 00000552  6E04                     bgt        +0x6 /* 00000558 */
  601. 00000554  0242 8000                andi.w     D2, 0x8000
  602. label00000558:
  603. 00000558  0C43 0040                cmpi.w     D3, 0x40 /* '@' */
  604. 0000055C  6504                     bcs        +0x6 /* 00000562 */
  605. 0000055E  363C 003F                move.w     D3, 0x3F /* '?' */
  606. label00000562:
  607. 00000562  7801                     moveq.l    D4, 0x01
  608. 00000564  E29C                     ror        D4, 1
  609. 00000566  0803 0004                btst.b     D3, 0x4
  610. 0000056A  6702                     beq        +0x4 /* 0000056E */
  611. 0000056C  4844                     swap.w     D4
  612. label0000056E:
  613. 0000056E  3C03                     move.w     D6, D3
  614. 00000570  0246 000F                andi.w     D6, 0xF
  615. 00000574  ECAC                     lsr        D4, D6
  616. 00000576  4285                     clr.l      D5
  617. 00000578  0803 0005                btst.b     D3, 0x5
  618. 0000057C  6702                     beq        +0x4 /* 00000580 */
  619. 0000057E  C945                     exg        D4, D5
  620. label00000580:
  621. 00000580  5385                     subq.l     D5, 1
  622. 00000582  4283                     clr.l      D3
  623. 00000584  9983                     subx.l     D4, D3
  624. 00000586  4E75                     rts
  625.